home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / HPLOT ANIM LISTING 4.bas < prev    next >
BASIC Source File  |  2023-02-26  |  865b  |  20 lines
  1. 199  REM  MODIFY FLIP ROUTINES FOR MULTIPLE SHAPE/SET INCREMENT
  2. 200  POKE 38333,96: POKE 38377,96: POKE 207,4
  3. 205  HGR : HGR2 : REM  CLEAR THE HI-RES SCREENS
  4. 210  FOR X = 1 TO 30
  5. 215  REM  DISPLAY PAGE 1-DRAW PAGE 2
  6. 220  POKE 251,147: CALL 38312: REM  MOVE SHAPE #147 -->
  7. 240  POKE 251,146: CALL 38356: REM  MOVE SHAPE #146 <--
  8. 255  REM  DISPLAY PAGE 2-DRAW PAGE 1
  9. 260  POKE 251,147: CALL 38334: REM  MOVE SHAPE #147 -->
  10. 280  POKE 251,146: CALL 38378: REM  MOVE SHAPE #146 <--
  11. 300  NEXT 
  12. 310  REM  GO BACK THE OTHER DIRECTION
  13. 320  FOR X = 1 TO 30
  14. 325  REM  DISPLAY PAGE 1-DRAW PAGE 2
  15. 330  POKE 251,147: CALL 38356: REM  MOVE SHAPE #147 <--
  16. 350  POKE 251,146: CALL 38312: REM  MOVE SHAPE #146 -->
  17. 360  REM  DISPLAY PAGE 2-DRAW PAGE 1
  18. 370  POKE 251,147: CALL 38378: REM  MOVE SHAPE #147 <--
  19. 390  POKE 251,146: CALL 38334: REM  MOVE SHAPE #146 -->
  20. 400  NEXT : GOTO 210